Function: calc[Pendulum] - animates the motion of a simple pendulum 

Calling Sequence:  

Pendulum(L, , r, options) 

Parameters: 

L   - length of the pendulum 

- initial angular position in degrees 

r   - damping coefficient 

options - plot options for the display command 

Description: 

• Pendulum creates an animation of the motion of a simple pendulum. The angular position is controlled by the numerical solution of the differential equation

which describes the motion of the pendulum. The initial angular velocity is assumed zero 

Examples: 

>	restart: with(calc):

 

>	Pendulum(5,60,0.2,scaling=constrained,axes=normal,tickmarks=[4,4]);